home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / WWW / YAM / Rexx / UpdateAddresses.yam < prev    next >
Encoding:
Text File  |  2000-01-01  |  977 b   |  30 lines
  1. /* UpdateAddresses.yam - Updates YAM's address book                         */
  2. /* $VER: UpdateAddresses.yam 1.0 (12.03.00) © 2000 by M.Beck <mbeck@yam.ch> */
  3. /* Updates new addresses for existing people in the address book, based on  */
  4. /* the selected messages. Requires YAM 2.0 or later.                        */
  5.  
  6. OPTIONS RESULTS
  7. ADDRESS YAM
  8. changes = 0
  9. GETSELECTED STEM sm.
  10. DO i = 0 TO sm.NUM.COUNT-1
  11.    MailInfo STEM mi. sm.NUM.i
  12.    PARSE VAR mi.FROM name' <'newmail'>'
  13.    'AddrFind STEM found. "'name'" NAMEONLY'
  14.    IF (RC = 0) & (name > '') THEN DO
  15.       al = found.ALIAS.0
  16.       'AddrInfo STEM entry. "'al'"'
  17.       oldmail = entry.EMAIL
  18.       IF newmail ~= oldmail THEN DO
  19.          'Request "'name' moved:\n\nOld e-mail: 'oldmail'\nNew e-mail: 'newmail'" "_Update|_Keep old"'
  20.          IF RESULT THEN DO
  21.             'AddrGoto "'al'"'
  22.             'AddrEdit "'al'" EMAIL "'newmail'"'
  23.             changes = 1
  24.          END
  25.       END
  26.    END
  27. END
  28. IF changes THEN AddrSave
  29. EXIT
  30.